home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / menu demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  161 lines
  1. 0 sys57812"xmenu",8,1:poke780,0:sys65493:rem xmenu laden
  2. 5 sys 50175:am=0:me=0:pt=1
  3. 10 gosub 1100:gosub 1000:rem init
  4. 11 :
  5. 15 mt$="main":gosub 1200
  6. 20 menu 9,5,17,6,141,1,0,m$(0),am
  7. 21 :
  8. 22 ifam<6then:killm
  9. 23 ifam=0thengosub1220:gosub1022:goto15
  10. 24 ifam=1thenmd$=m$(am):gosub1250:goto20
  11. 25 ifam=6thengosub1220:poke214,23:sys58732:end
  12. 26 on am-1 goto 40,80,100,140
  13. 30 :
  14. 36 :
  15. 40 gosub 1280
  16. 41 mt$="print":gosub 1200
  17. 43 menu 9,5,17,5,141,1,1,p$(0),am
  18. 44 :
  19. 48 ifam=0thengosub1220:gosub1265:goto20
  20. 51 ifam=1then60
  21. 54 md$=p$(am):gosub1265:gosub1250:killm:goto43
  22. 55 :
  23. 60 mt$="ptype":gosub 1200
  24. 65 menu 9,5,17,5,141,1,1,pt$(0),am
  25. 70 ifam=0thengosub1220:goto43
  26. 73 pt=am:gosub 1265:gosub 1280:goto 65
  27. 74 :
  28. 80 mt$="edit":gosub 1200
  29. 83 menu 9,5,17,5,141,1,1,e$(0),am
  30. 86 :
  31. 89 ifam=0thengosub1220:goto20
  32. 92 md$=e$(am):gosub1250:goto83
  33. 93 :
  34. 100 mt$="disk":gosub 1200
  35. 105 menu 9,5,17,6,141,1,1,d$(0),am
  36. 108 :
  37. 110 ifam=0thengosub1220:goto20
  38. 112 ifam=2then120
  39. 114 md$=d$(am):gosub1250:goto105
  40. 115 :
  41. 120 mt$="dcmds":gosub1200
  42. 123 menu 9,5,17,4,141,1,1,dc$(0),am
  43. 126 :
  44. 130 ifam=0thengosub1220:goto105
  45. 135 md$=dc$(am):gosub1250:goto123
  46. 136 :
  47. 140 mt$="text":gosub1200
  48. 145 menu 9,5,17,5,141,1,1,t$(0),am
  49. 146 :
  50. 150 ifam=0thengosub1220:goto20
  51. 155 md$=t$(am):gosub1250:goto145
  52. 999 :
  53. 1000 rem bildschirm
  54. 1001 :
  55. 1002 printchr$(14)"[147][159][196]emo[215]rite [206]ame:demo.tex  [211]t 1 [218]l 16 [211]p 5
  56. 1003 [153]"left$ierarchie:                             wait"
  57. 1004 [153]"   str$ies ist eine (NULL)extverarbeitungs-atnt-
  58. 1005 print" trappe um [201]hnen die [193]nwendung des [205]enu-";
  59. 1006 print" [213]nterprogramms in der [208]raxis zu zeigen.
  60. 1007 [153]"   right$n das left$auptmenu gelangen (NULL)ie mit
  61. 1008 print" [195][212][210][204]-[205]. [201]n das nachste [205]enu kommen [211]ie
  62. 1009 [153]" mit (NULL)eturn oder durch str$rucken eines un-";
  63. 1010 [153]" terlegten peekuchstabens. (NULL)m in das vor-
  64. 1011 print" hergehende [205]enu zu kommen mussen [211]ie
  65. 1012 [153]" (NULL)hift-(NULL)eturn drucken. str$ie (NULL)enu-left$ierar-
  66. 1013 print" chie, die anzeigt in welcher [205]enu-[197]bene";
  67. 1014 print" [211]ie sich befinden, sehen [211]ie in der
  68. 1015 [153]" dritten peekildschirmzeile.
  69. 1016 print"   [206]achdem [211]ie eine [198]unktion angewahlt
  70. 1017 [153]" haben, erscheint die (NULL)eldung "[199](34)"ascunktion
  71. 1018 print" nicht implementiert"chr$(34)" und die [193]ufforder-";
  72. 1019 print" ung eine [212]aste zu drucken. [215]enn [211]ie
  73. 1020 [153]" jetzt direkt in den (NULL)extmodus wollen,
  74. 1021 print" mussen [211]ie '_' drucken."
  75. 1022 :
  76. 1023 rem auf ctrl-m warten
  77. 1024 :
  78. 1025 poke211,24:poke214,23:sys58732
  79. 1027 poke204,0
  80. 1030 wait198,1:poke198,0:ifpeek(631)<>13then1030
  81. 1035 wait207,1,1:poke204,1
  82. 1040 rem fertig
  83. 1045 return
  84. 1046 :
  85. 1100 rem texte
  86. 1101 :
  87. 1105 dim m$(6),p$(5),e$(7),d$(6),t$(5),dc$(4),pt$(5)
  88. 1110 m$(0)="[205]ain [205]enu"
  89. 1111 m$(1)="[206]ew [196]ocument"
  90. 1112 m$(2)="[208]rint"
  91. 1113 m$(3)="[197]dit [198]unctions"
  92. 1114 m$(4)="[196]isk [200]andling"
  93. 1115 m$(5)="[212]ext [208]arameters"
  94. 1116 m$(6)="[209]uit [196]emo[215]rite"
  95. 1117 :
  96. 1120 p$(0)="[208]rint [205]enu"
  97. 1121 p$(1)="[212]ype of [208]rinter"
  98. 1122 p$(2)="[211]et [202]ustification"
  99. 1123 p$(3)="[198]rom/[212]o [208]age"
  100. 1124 p$(4)="[196]efine [208]aper"
  101. 1125 p$(5)="[208]rint [212]ext"
  102. 1126 :
  103. 1130 e$(0)="[197]dit [205]enu"
  104. 1131 e$(1)="[198]ind"
  105. 1132 e$(2)="[196]elete"
  106. 1133 e$(3)="[210]eplace"
  107. 1134 e$(4)="[195]opy"
  108. 1135 e$(5)="[205]ove"
  109. 1136 :
  110. 1140 d$(0)="[196]isk [205]enu"
  111. 1141 d$(1)="[196]irectory"
  112. 1142 d$(2)="[195]ommands of [196]isk"
  113. 1143 d$(3)="[201]mport [214]iza-[212]ext"
  114. 1144 d$(4)="[201]mport [211][197][209]-[212]ext"
  115. 1145 d$(5)="[197]xport [211][197][209]-[212]ext"
  116. 1146 d$(6)="[211]ave [212]ext"
  117. 1147 :
  118. 1150 t$(0)="[212]ext [205]enu"
  119. 1151 t$(1)="[212]ext [215]idth"
  120. 1152 t$(2)="[210]ename [212]ext"
  121. 1153 t$(3)="[195]haracter [211]et"
  122. 1154 t$(4)="[211]creen [195]olor"
  123. 1155 t$(5)="[211]torage [196]evice"
  124. 1156 :
  125. 1160 dc$(0)="[196]command [205]enu"
  126. 1161 dc$(1)="[210]ename [198]ile"
  127. 1162 dc$(2)="[196]elete [198]ile"
  128. 1163 dc$(3)="[198]ormat [196]isk"
  129. 1164 dc$(4)="[214]alidate [196]isk"
  130. 1165 :
  131. 1170 pt$(0)="[208]rinter [205]enu"
  132. 1171 pt$(1)="[201]toh 8510"
  133. 1172 pt$(2)="[197]pson [210][216]/[198][216]"
  134. 1173 pt$(3)="[214][195] 1526"
  135. 1174 pt$(4)="[194]rother [200][210]-5[195]"
  136. 1175 pt$(5)="[211]tar [196]elta 10"
  137. 1176 :
  138. 1177 return
  139. 1178 :
  140. 1200 rem hierarchie erweitern
  141. 1201 :
  142. 1205 print""tab(12+7*me)"->";mt$
  143. 1210 me=me+1:return
  144. 1211 :
  145. 1220 rem hierarchie zurucksetzen
  146. 1221 :
  147. 1225 print""tab(5+7*me)"       "
  148. 1230 me=me-1:return
  149. 1231 :
  150. 1250 rem meldung ausgeben
  151. 1251 :
  152. 1255 print""chr$(34);md$;chr$(34)" nicht impl. - [212]aste!";
  153. 1260 poke198,0:wait198,1:poke 198,0:ifpeek(631)=95thenrun
  154. 1265 print"                                        ";
  155. 1270 return
  156. 1271 :
  157. 1275 rem aktuellen drucker ausgeben
  158. 1276 :
  159. 1280 print"[195]urrent selected printer:";pt$(pt)
  160. 1285 return
  161.